home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
alpha_tb
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
2KB
From: Thomas Boerner <UET008@DDOHRZ11UET008%DDOHRZ11.BITNET@vm.gmd.de>
Subject: v05i018: alpha_tb - alpha-mode with strings & binaries v1.0, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 3386369652 (verify with brik -cv)
Submitted-by: Thomas Boerner <UET008@DDOHRZ11UET008%DDOHRZ11.BITNET@vm.gmd.de>
Posting-number: Volume 5, Issue 18
Archive-name: alpha_tb/part01
BEGIN_DOC alpha.doc
Anybody out there who finds it annoying always to hit the alpha key when
entering binary integers, strings, units or tagged ?
Here is the solution: 4 little programs which, assigned to the appropriate
keys, will turn on alpha-locked-mode when entering [blueshift][div] ( # ),
[blueshift][mult] ( _ (to build units)), [blueshift][sub] ( "" ), or
[blueshift][add] ( :: ).
These programs have to be assigned directly to the key to work properly.
So the file consists actually of a list containing 4 tagged lists which can
be used as arguments for STOKEYS. Choose which ones you want to use.
1.Download the file below.
2.ASC-> it.
3.OBJ-> it.
4.Now there should be 4 tagged lists on the stack. They can immediately be
used with STOKEYS. Drop the ones you don't want to install.
Bug reports and anything else welcome.
Thomas Boerner, Dortmund, Germany. UET008@DDOHRZ11
END_DOC
BEGIN_ASC alpha.asc
%%HP: T(3)A(D)F(.);
"47A20CFA20D032027796478602C8D2C4F636B647A20D9D20A580480CA352D04B
2130339201000000000003560B2130CFA20D0F5027796478602C8D2C4F636B64
7A20D9D20A58043B6A352D04B2130339201000000000003570B2130CFA20E022
22027796478602C8D2C4F636B647A20D9D20A580412CA352D04B213033920100
0000000003580B2130CFA20E0A3A3027796478602C8D2C4F636B647A20D9D20A
5804FEBA352D04B2130339201000000000003590B2130B2130EB29"
END_ASC
BYTES: #92BEh 191.5
BEGIN_UU alpha.uue
begin 644 alpha
M2%!(4#0X+45T*L"O`@TC('=I=&@@C"U,;V-K="K0V0):"(3`.B4-M!(#,RD0
M```````P9;`2`_PJT/`%<I=&AP;"V,+T-K9&IP*=+:"%0+.F4])`*S$PDP(!
M``````!3!RLQP*\"#B(B('=I=&@@C"U,;V-K="K0V0):"!3".B4-M!(#,RD0
M```````PA;`2`_PJX*"C`W*71H<&PMC"]#:V1J<"G2V@A4#OJU/20"LQ,),"
-`0``````4PDK,;`2`[`2
`
end
sum -r/size 55309/292 section (from "begin" to "end")
sum -r/size 3794/193 entire input file
END_UU